home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / gnu_st.lha / gnu_st / smalltalk-1.1.1 / Integer.st < prev    next >
Text File  |  1991-09-12  |  5KB  |  260 lines
  1. "======================================================================
  2. |
  3. |   Integer Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbb         12 Sep 91      Fixed gcd: to return result instead of self.
  36. |
  37. | sbyrne     25 Apr 90      Fixed (oh...happy birthday, Integer.st!) bitInvert.
  38. |              After fixing the lexer to be pickier about integer
  39. |              literals that were too large to be represented as
  40. |              Smalltalk literals, the previous code (which xored
  41. |              with 7fffffff) broke, so as a hack I computed two's
  42. |              complement and subtracted one.
  43. |
  44. | sbyrne     25 Apr 89      created.
  45. |
  46. "
  47.  
  48. Number variableWordSubclass: #Integer "### Not really a variable word subclass"
  49.        instanceVariableNames: ''
  50.        classVariableNames: ''
  51.        poolDictionaries: ''
  52.        category: nil.
  53.  
  54. Integer comment:
  55. 'I am the integer class of the GNU Smalltalk system.  My instances can 
  56. represent 31 bit integers and are as efficient as possible.' !
  57.  
  58. !Integer methodsFor: 'Misc math operators'!
  59.  
  60. hash
  61.     ^self
  62. !!
  63.  
  64.  
  65.  
  66. !Integer methodsFor: 'Other iterators'!
  67.  
  68. timesRepeat: aBlock
  69.     | i |
  70.     i _ 1.
  71.     [ i <= self ] whileTrue: [ aBlock value.
  72.                                i _ i + 1 ]
  73. !!
  74.  
  75.  
  76.  
  77. !Integer methodsFor: 'bit operators'!
  78.  
  79. bitAt: index
  80.     ^(self bitShift: index negated) bitAnd: 1
  81. !
  82.  
  83. bitInvert
  84.     "Return the 1's complement of the bits of the receiver"
  85.     ^self negated - 1        "compute 2's complement then remove 1"
  86. !
  87.  
  88.  
  89. allMask: anInteger
  90.     "True if all bits in anInteger are 1 in the receiver"
  91.     ^(self bitAnd: anInteger) = anInteger
  92. !
  93.  
  94. anyMask: anInteger
  95.     "True if any 1 bits in anInteger are 1 in the receiver"
  96.     ^(self bitAnd: anInteger) ~= 0
  97. !
  98.  
  99. noMask: anInteger
  100.     "True if no 1 bits in anInteger are 1 in the receiver"
  101.     ^(self bitAnd: anInteger) = 0
  102. !
  103.  
  104. highBit
  105.     "Return the index of the highest order 1 bit of the receiver"
  106.     self = 0 ifTrue: [ ^-1 ].    "??? I don't know what the right value is"
  107.     30 to: 1 step: -1 do:
  108.         [ :i | (self bitAnd: (1 bitShift: i)) ~= 0 ifTrue: [ ^i ] ]
  109. !!
  110.  
  111.  
  112.  
  113. !Integer methodsFor: 'Math methods'!
  114.  
  115. factorial
  116.     self < 2 ifTrue: [ ^1 ]
  117.              ifFalse: [ ^self * (self - 1) factorial ]
  118. !
  119.  
  120. gcd: anInteger
  121.     | selfInteger temp |
  122.     "Return the greatest common divisor (Euclid's algorithm)"
  123.     selfInteger _ self.
  124.     [ anInteger ~= 0 ]
  125.         whileTrue: [ temp _ selfInteger \\ anInteger.
  126.                  selfInteger _ anInteger.
  127.              anInteger _ temp. ].
  128.     ^selfInteger
  129. !
  130.  
  131. lcm: anInteger
  132.     ^(self * anInteger) abs // (self gcd: anInteger)
  133. !
  134.  
  135. even
  136.     ^(self bitAnd: 1) = 0
  137. !
  138.  
  139. odd
  140.     ^(self bitAnd: 1) ~= 0
  141. !!
  142.  
  143.  
  144.  
  145. !Integer methodsFor: 'Coercion methods (heh heh heh)'!
  146.  
  147. asCharacter
  148.     "Return self as an ascii character"
  149.     (self <= 255 and: [ self >= 0])
  150.         ifTrue: [ ^Character value: self ]
  151.     ifFalse: [ ^self error: 'Integer not convertible to character' ]
  152. !
  153.  
  154. coerce: aNumber
  155.     ^aNumber truncated
  156. !
  157.  
  158. generality
  159.     ^1
  160. !
  161.  
  162. ceiling
  163.     ^self
  164. !
  165.  
  166. floor
  167.     ^self
  168. !
  169.  
  170. truncated
  171.     ^self
  172. !
  173.  
  174. rounded
  175.     ^self
  176. !!
  177.  
  178.  
  179.  
  180.  
  181. !Integer methodsFor: 'copying'!
  182.  
  183. shallowCopy
  184.     ^self
  185. !
  186.  
  187. deepCopy
  188.     ^self
  189. !!
  190.  
  191.  
  192.  
  193.  
  194. !Integer methodsFor: 'printing'!
  195.  
  196. printOn: aStream base: b
  197.     aStream nextPutAll: (self radix: b)
  198. !
  199.  
  200. radix: baseInteger
  201.     ^self signedStringBase: baseInteger showRadix: true
  202. !
  203.  
  204. printOn: aStream
  205.     (self signedStringBase: 10 showRadix: false) printOn: aStream
  206. !!
  207.  
  208.  
  209.  
  210. !Integer methodsFor: 'storing'!
  211.  
  212. storeOn: aStream
  213.     self printOn: aStream        "they print and store the same"
  214. !!
  215.  
  216.  
  217.  
  218. !Integer methodsFor: 'not implemented'!
  219.  
  220. asFraction
  221.     self notYetImplemented
  222. !!
  223.  
  224.  
  225.  
  226. !Integer methodsFor: 'private'!
  227.  
  228. signedStringBase: baseInteger showRadix: showRadix
  229.     | str revString string sign len num i |
  230.     self < 0
  231.         ifTrue: [ sign _ true.
  232.               num _ self negated ]
  233.     ifFalse: [ sign _ false.
  234.                num _ self ].
  235.     revString _ num revDigitsBase: baseInteger.
  236.     str _ WriteStream on: (String new: 1).
  237.     showRadix ifTrue:
  238.         [ baseInteger printOn: str.
  239.       str nextPut: $r ].
  240.     sign ifTrue: [ str nextPut: $- ].
  241.     revString reverseDo:
  242.         [ :char | str nextPut: char ].
  243.     ^str contents
  244. !
  245.  
  246. revDigitsBase: b    
  247.     | str num |
  248.     str _ WriteStream on: (String new: 1).
  249.     self = 0
  250.         ifTrue: [ str nextPut: $0 ]
  251.     ifFalse: [
  252.             num _ self.
  253.         [ num = 0 ] whileFalse:
  254.             [ str nextPut: (Character digitValue: num \\ b).
  255.           num _ num // b ] ].
  256.     ^str contents
  257.  
  258. !!
  259.  
  260.